home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed35.d64 / more units (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  636b  |  28 lines
  1. 10 POKE53280,0:POKE53281,0:REM 90:02:15
  2. 15 PRINT"[147][156]   ** MORE PROGRAMS **
  3. 20 [153]"      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  4. 30 [134]A$(15)
  5. 35 [129]A[178]1[164]15:[135]A$(A):[153]"CONT"[201]("   "[170][196](A),4);". SYS";A$(A):[130]A
  6. 40 [133]"CHOOSE(1-15):";A$
  7. 45 A[178][197](A$):[139]A[179]1[176]A[177]15[176]A[179][177][181](A)[167][153]"ONONONON":[137]35
  8. 50 [129]X[178]1230[170]40[172]A[164]1229[170]40[172]A[170][195](A$(A)):[151]X,[194](X)[170]128:[151]X[170]54272,3:[130]
  9. 55 [129]T[178]1[164]1500:[130]:[153]"LOADLOADING........ ";A$(A)
  10. 60 [153]"STOPLOAD"[199](34)A$(A)[199](34)",8:"
  11. 75 [151]198,0:[151]631,19:[151]632,131:[151]198,2:[128]
  12. 59999 :
  13. 60001 [131] "UNIT D-15"
  14. 60002 [131] "UNIT D-16"
  15. 60003 [131] "UNIT D-17"
  16. 60004 [131] "UNIT D-18"
  17. 60005 [131] "UNIT D-19"
  18. 60006 [131] "**"
  19. 60007 [131] "**"
  20. 60008 [131] "**"
  21. 60009 [131] "**"
  22. 60010 [131] "**"
  23. 60011 [131] "**"
  24. 60012 [131] "**"
  25. 60013 [131] "**"
  26. 60014 [131] "**"
  27. 60015 [131] "**"
  28.